home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL41.LIT < prev    next >
Text File  |  1990-01-13  |  1KB  |  26 lines
  1. *[FOSSIL41.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB4.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 58800 SUB WipeLine (CharsToWipe) STATIC
  9.       IF ZNulls OR CharsToWipe > 79 THEN _
  10.          CALL SkipLine (1) : _
  11.          EXIT SUB
  12.       IF NOT ZLocalUser THEN _
  13.          Strng$ = ZCarriageReturn$ + SPACE$(CharsToWipe) + ZCarriageReturn$ : _
  14.       PRINT #3,Strng$
  15.       IF ZSnoop THEN _
  16.          LOCATE ,1 :  _
  17.          CALL LPrnt(SPACE$(CharsToWipe),0) : _
  18.          LOCATE ,1
  19.       IF ZF7Msg$ = "" OR _
  20.          ZF7Msg$ = "NONE" OR _
  21.          NOT ZSysopNext THEN _
  22.          EXIT SUB
  23.       ZBypassTimeCheck = ZTrue
  24.       CALL BufFile (ZF7Msg$,WasX)
  25.       END SUB
  26.